(require (planet schematics/schemeunit:3))
"Exercicio 1.1"
(check-equal? 10 10)
(check-equal? (+ 5 3 4) 12)
(check-equal? (- 9 1) 8)
(check-equal? (/ 6 2) 3)
(check-equal? (+ (* 2 4) (- 4 6)) 6)
(define a 3)
(define b (+ a 1))
(check-equal? (+ a b (* a b)) 19)
(check-equal? (= a b) #f)
(check-equal? (if (and (> b a) (< b (* a b)))
          b
          a)
      4)
(check-equal? (cond ((= a 4) 6)
            ((= b 4) (+ 6 7 a))
            (else 25))
      16)
(check-equal? (+ 2 (if (> b a) b a)) 6)
(check-equal? (* (cond ((> a b) a)
               ((< a b) b)
               (else -1))
         (+ a 1))
      16)